CAAMoonPhases_TruePhase <-
function(k){
.Call("CAAMoonPhases_TruePhase", k)
}
